home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 44
/
Commodore_Disc_44_19xx_-_de.d64
/
europe war
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
14KB
|
371 lines
10 rem europe-war=========c64/c128
20 rem (p) commodore disc
30 rem ===========================
40 rem (c) by eckhard schulz v3.5
50 rem
60 rem
70 rem (v) a.mittelmeyer
80 rem c64 und c128/v2.0 und v7.0
90 rem ===========================
100 gosub 3500
110 gosub3430:ifltthenpoke53280,0:poke53281,0:goto120
111 (NULL)0,1:(NULL)4,1
120 printwh$
130 gosub 2950
140 printlg$he$left$(qd$,13)left$(qr$,14)rn$"**************"
150 printleft$(qr$,14)rn$"* europe war *
160 [153][200](qr$,14)rn$"**************":[141]3190
170 [153]cl$c4$c4$c4$"die zeit ist vorbei----eine periode"
180 [153]c4$"die in keinem geschichtsbuch steht.":[141]3410
190 [153]c4$c4$c4$"europa ist in 12 gebiete unterteilt."
200 [153]c4$"und jedes gebiet hat eine eigene armee."
210 :[141]3410
220 [153]cl$c4$c4$c4$"da ist superpower,(ich),"
230 [153]c4$"ich versuche jedes gebiet zu besetzen!"
240 [141]3410
250 [153]c4$c4$c4$"es ist deine aufgabe mich zurueck-"
260 [153]c4$"zuschlagen und deine gebiete, die
270 printc4$"bereits besetzt sind, wiederzubekommen.":gosub3410
280 printcl$c4$c4$c4$"wir beide haben am anfang 6 gebiete."
290 printc4$"(meine sind mit einem '#' gezeichnet)"
300 printc4$"wir beide muessen uns schlagen"
310 printc4$"denn einer muss gewinnen--und ich bin"
320 printc4$"bereit dich zu ueberlaufen.":printc4$"also pass auf!!"
330 printc4$c4$c4$rn$"druecke eine taste zum start.":gosub3190
340 dimp(12),c(12),fl(12),d(12),cd(12),cr(12),hd(12),hr(12)
350 gosub360:goto420
360 n$="abcdefghjklm"
370 ee$=" ":forx=1to39:e$=e$+ee$:eq$=eq$+ee$:next:eq$=he$+c4$+eq$:e$=he$+e$
380 forn=1to12:readcd(n),cr(n),hd(n),hr(n):next
390 xd$=c4$:forx=1to25:cd$=cd$+xd$:next
400 xr$=c3$:forx=1to39:cr$=cr$+xr$:next
410 return
420 printcl$c4$c4$c4$rn$"wuerfle wer anfaengt."b3$"<taste>"
430 p=rnd(rnd(0)):p=int((6*p)+1):gosub3190
440 printc4$c4$c4$"dein wurf ";:printp:gosub3190
450 printc4$c4$"mein wurf ";
460 c=rnd(rnd(0)):c=int((6*c)+1):ifc=pthen460
470 printc:gosub3190:ifp>cthenprintc4$c4$c4$"du faengst an---":fl=1:gosub3410
480 ifp<cthenprintc4$c4$c4$"ich fange an---":fl=2:gosub3410
490 gosub2950:gosub1460:iffl=1then620
500 goto970
510 ml=0:hg=0:lm=0:gh=0:al=0:ab=0:ba=0:bc=0:cd=0:dc=0:de=0:lj=0:lk=0:ed=0
520 jl=0:jk=0:jf=0:kl=0:kj=0:fe=0:fj=0:ef=0:ge=0:gf=0:gj=0:gk=0:jg=0
530 la=0:fg=0:eg=0:kg=0:return
540 m=rnd(rnd(0)):m=int(15*m)
550 ifm=1thenprinte$eq$:printhe$"5 neue divisionen kommen extra!":gosub3190
560 ifm=1theniffl=1thentp=5:goto610
570 ifm=1thentc=5:goto610
580 ifm=2thenprinte$eq$:printhe$"drei flugstaffeln sollen mir helfen":gosub3190
590 ifm=2theniffl=1thentp=3:goto610
600 ifm=2thentc=3
610 return
620 gosub540
630 gosub510:fl=1:fora=1to12:ifp(a)<>0thent1=t1+1
640 next:t1=int((t1/2)+.5)+tp:ift1<3thent1=2
650 ift1<>0then830
660 ift1=0thenprinte$eq$:printhe$"willst du angreifen (j/n)?"
670 gosub3210:ifa$="n"thenprinte$:goto970
680 ifa$<>"j"then660
690 printe$eq$:printhe$"angriff von wo ?";:gosub3210:fw$="":fw$=a$:aw=1
700 printc3$rn$fw$:fora=1to300:next:gosub920:ifaw=2then650
710 aw=0:ifp(n)<2thenaa=1
720 ifaa=1thenprinte$eq$:printhe$"du hast nicht genug armeen zum angriff"
730 ifaa=1thengosub3190:aa=0:goto650
740 printe$eq$:printhe$"nach wo ?";:gosub3210:tw$="":tw$=a$:printc3$rn$tw$
750 gosub1610:iffw=1thenfw=0:goto650
760 gosub1800:v=rnd(rnd(0)):v=int(25*v)
770 ifv=1thenprinte$eq$:printhe$"das muss ein panik-zug sein!!"
780 ifv=2thenprinte$eq$:printhe$"du kannst es besser machen!!"
790 ifv=3thenprinte$eq$:printhe$"ein fuenkchen hoffnung im zug!!"
800 fora=1to1500:next:gosub2600:fora=1to1500:next:gosub2720:gosub3250
810 pp=pp+1:ifpp=6then970
820 goto650
830 gosub860:p(n)=p(n)+1:t1=t1-1
840 gosub1570
850 printhe$nd$nr$p(n):goto650
860 printe$eq$:printhe$rn$"druecke buchstaben um armeen zu setzen"rf$
870 print"du hast"t1"armeen zum setzen.":in=0
880 gosub3210
890 fora=1to12:ifmid$(n$,a,1)<>a$thenin=in+1
900 next
910 ifin=12then860
920 n=0:fora=1to12:ifmid$(n$,a,1)=a$andc(a)=0thenn=a
930 next:ifn<>0thenreturn
940 printe$eq$:printhe$"das ist nicht dein gebiet!":gosub3190
950 ifaw=1thenaw=2:return
960 goto860
970 w=0:fl=2:b=0:t2=0:gosub510
980 gosub540
990 fora=1to12:ifc(a)<>0thent2=t2+1:b=b+1
1000 next:t2=int((t2/2)+.5)+tc:ift2<3thent2=2
1010 printe$eq$:printhe$"nun bin ich dran!":gosub3190
1020 v=rnd(rnd(0)):v=int((v*3)+1):ifv<>2then1080
1030 printe$eq$:ifb=11thenprinthe$+"kaempfen bis zum ende ?"
1040 ifb=9thenprinthe$+"ich fuehre nun!"
1050 ifb=6thenprinthe$+"wir sind beide gleich,aber nicht lange!"
1060 ifb=3thenprinthe$+"ich habe noch ein bischen aufzuholen!"
1070 ifb=1thenprinthe$+"meine letzte festung!!"
1080 gosub3190:printe$eq$:printhe$"ich setze"t2"armeen nach--":gosub3410
1090 goto1110
1100 t2=t2-1:gosub2570:ift2=0then2110
1110 ifc(12)>0and(c(12)-p(11))<0thenc(12)=c(12)+1:n2=12:goto1100
1120 b=c(11):ifb>0and(b-p(12))<0thenc(11)=c(11)+1:n2=11:goto1100
1130 ifb>0and(b-p(1))<0thenc(11)=c(11)+1:n2=11:goto1100
1140 ifb>0and(b-p(9))<0thenc(11)=c(11)+1:n2=11:goto1100
1150 ifb>0and(b-p(10))<0thenc(11)=c(11)+1:n2=11:goto1100
1160 b=c(1):ifb>0and(b-p(11))<0thenc(1)=c(1)+1:n2=1:goto1100
1170 ifb>0and(b-p(2))<0thenc(1)=c(1)+1:n2=1:goto1100
1180 b=c(2):ifb>2and(b-p(1))<0thenc(2)=c(2)+1:n2=2:goto1100
1190 ifb>0and(b-p(3))<0thenc(2)=c(2)+1:n2=2:goto1100
1200 b=c(3):ifb>0and(b-p(2))<0thenc(3)=c(3)+1:n2=3:goto1100
1210 ifb>0and(b-p(4))<0thenc(3)=c(3)+1:n2=3:goto1100
1220 b=c(4):ifb>0and(b-p(3))<0thenc(4)=c(4)+1:n2=4:goto1100
1230 ifb>0and(b-p(5))<0thenc(4)=c(4)+1:n2=4:goto1100
1240 b=c(5):ifb>0and(b-p(4))<0thenc(5)=c(5)+1:n2=5:goto1100
1250 ifb>0and(b-p(6))<0thenc(5)=c(5)+1:n2=5:goto1100
1260 ifb>0and(b-p(7))<0thenc(5)=c(5)+1:n2=5:goto1100
1270 b=c(9):ifb>0and(b-p(11))<0thenc(9)=c(9)+1:n2=9:goto1100
1280 ifb>0and(b-p(6))<0thenc(9)=c(9)+1:n2=9:goto1100
1290 ifb>0and(b-p(10))<0thenc(9)=c(9)+1:n2=9:goto1100
1300 ifb>0and(b-p(7))<0thenc(9)=c(9)+1:n2=9:goto1100
1310 b=c(10):ifb>0and(b-p(11))<0thenc(10)=c(10)+1:n2=10:goto1100
1320 ifb>0and(b-p(9))<0thenc(10)=c(10)+1:n2=10:goto1100
1330 ifb>0and(b-p(7))<0thenc(10)=c(10)+1:n2=10:goto1100
1340 b=c(6):ifb>0and(b-p(5))<0thenc(6)=c(6)+1:n2=6:goto1100
1350 ifb>0and(b-p(9))<0thenc(6)=c(6)+1:n2=6:goto1100
1360 ifb>0and(b-p(7))<0thenc(6)=c(6)+1:n2=6:goto1100
1370 ifc(8)>0and(c(8)-p(7))<0thenc(8)=c(8)+1:n2=8:goto1100
1380 b=c(7):ifb>0and(b-p(8))<0thenc(7)=c(7)+1:n2=7:goto1100
1390 ifb>0and(b-p(5))<0thenc(7)=c(7)+1:n2=7:goto1100
1400 ifb>0and(b-p(9))<0thenc(7)=c(7)+1:n2=7:goto1100
1410 ifb>0and(b-p(10))<0thenc(7)=c(7)+1:n2=7:goto1100
1420 ifb>0and(b-p(6))<0thenc(7)=c(7)+1:n2=7:goto1100
1430 v=rnd(rnd(0)):v=int((12*v)+1):ifc(v)=0then1430
1440 c(v)=c(v)+1:n2=v:goto1100
1450 gosub3250:goto620
1460 fora=1to12
1470 v=rnd(rnd(0)):v=int((12*v)+1):iffl(v)<>0then1470
1480 ifa>6thenc(v)=5:goto1500
1490 p(v)=5
1500 fl(v)=1:next
1510 fori=1to12:n=i
1520 ifp(i)=0then1540
1530 gosub1570:printhe$nd$nr$p(i):goto1550
1540 gosub1570:printhe$nd$nr$c(i):printhe$hd$hr$"#"
1550 next
1560 return
1570 nd$="":nr$="":hd$="":hr$=""
1580 nd$=left$(cd$,cd(n)):nr$=left$(cr$,cr(n))
1590 hd$=left$(cd$,hd(n)):hr$=left$(cr$,hr(n))
1600 return
1610 n=0:fora=1to12:ifmid$(n$,a,1)=tw$andc(a)<>0thenn=a
1620 next:ifn<>0then1650
1630 printe$eq$:printhe$"das ist schon dein gebiet,dummkopf!!":gosub3190:fw=1
1640 return
1650 iftw$="a"and(fw$="b"orfw$="l")then1790
1660 iftw$="b"and(fw$="a"orfw$="c")then1790
1670 iftw$="c"and(fw$="b"orfw$="d")then1790
1680 iftw$="d"and(fw$="c"orfw$="e")then1790
1690 iftw$="e"and(fw$="d"orfw$="f"orfw$="g")then1790
1700 iftw$="f"and(fw$="e"orfw$="g"orfw$="j")then1790
1710 iftw$="g"and(fw$="e"orfw$="f"orfw$="j"orfw$="k"orfw$="h")then1790
1720 iftw$="h"andfw$="g"then1790
1730 iftw$="j"and(fw$="f"orfw$="g"orfw$="k"orfw$="l")then1790
1740 iftw$="k"and(fw$="g"orfw$="j"orfw$="l")then1790
1750 iftw$="l"and(fw$="k"orfw$="j"orfw$="a"orfw$="m")then1790
1760 iftw$="m"andfw$="l"then1790
1770 printe$eq$:printhe$"du kannst "rn$fw$rf$" nicht angreifen ":fw=1
1780 gosub3190:goto1790
1790 return
1800 iffw$="m"and(tw$="l")thenml=ml+1:ifml>2then2100
1810 iffw$="h"and(tw$="g")thenhg=hg+1:ifhg>2then2100
1820 iffw$="l"and(tw$="m")thenlm=lm+1:iflm>2then2100
1830 iffw$="g"and(tw$="h")thengh=gh+1:ifgh>2then2100
1840 iffw$="a"and(tw$="l")thenal=al+1:ifal>2then2100
1850 iffw$="b"and(tw$="a")thenba=ba+1:ifba>2then2100
1860 iffw$="b"and(tw$="c")thenbc=bc+1:ifbc>2then2100
1870 iffw$="c"and(tw$="d")thencd=cd+1:ifcd>2then2100
1880 iffw$="d"and(tw$="c")thendc=dc+1:ifdc>2then2100
1890 iffw$="d"and(tw$="e")thende=de+1:ifde>2then2100
1900 iffw$="l"and(tw$="j")thenlj=lj+1:iflj>2then2100
1910 iffw$="l"and(tw$="k")thenlk=lk+1:iflk>2then2100
1920 iffw$="e"and(tw$="d")thened=ed+1:ifed>2then2100
1930 iffw$="j"and(tw$="l")thenjl=jl+1:ifjl>2then2100
1940 iffw$="j"and(tw$="k")thenjk=jk+1:ifjk>2then2100
1950 iffw$="j"and(tw$="f")thenjf=jf+1:ifjf>2then2100
1960 iffw$="k"and(tw$="l")thenkl=kl+1:ifkl>2then2100
1970 iffw$="k"and(tw$="j")thenkj=kj+1:ifkj>2then2100
1980 iffw$="f"and(tw$="e")thenfe=fe+1:iffe>2then2100
1990 iffw$="f"and(tw$="j")thenfj=fj+1:iffj>2then2100
2000 iffw$="e"and(tw$="f")thenef=ef+1:ifef>2then2100
2010 iffw$="g"and(tw$="e")thenge=ge+1:ifge>2then2100
2020 iffw$="g"and(tw$="f")thengf=gf+1:ifgf>2then2100
2030 iffw$="g"and(tw$="j")thengj=gj+1:ifgj>2then2100
2040 iffw$="g"and(tw$="k")thengk=gk+1:ifgk>2then2100
2050 iffw$="j"and(tw$="g")thenjg=jg+1:ifjg>2then2100
2060 iffw$="f"and(tw$="g")thenfg=fg+1:iffg>2then2100
2070 iffw$="e"and(tw$="g")theneg=eg+1:ifeg>2then2100
2080 iffw$="k"and(tw$="g")thenkg=kg+1:ifkg>2then2100
2090 return
2100 printe$eq$:printhe$"nimm einen anderen angriff!":gosub3190:goto650
2110 fora=1to12:y=c(a):pokexx+a,y:y=p(a):pokexx+a+12,y:next
2120 clr:gosub3500:dimp(12),c(12),fl(12),d(12),cd(12),cr(12),hd(12),hr(12)
2130 fora=1to12:d=peek(xx+a):c(a)=d:d=peek(xx+a+12):p(a)=d:next
2140 gosub360:goto2170
2150 cc=cc+1:ifcc=6then620
2160 fl=2:gosub2490
2170 ifml<2thenifc(12)>2andp(11)<>0thenfw$="m":tw$="l":ml=ml+1:goto2150
2180 ifhg<2thenifc(8)>2andp(7)<>0thenfw$="h":tw$="g":hg=hg+1:goto2150
2190 iflm<2thenifc(11)>2andp(12)<>0thenfw$="l":tw$="m":lm=lm+1:goto2150
2200 ifgh<2thenifc(7)>2andp(8)<>0thenfw$="g":tw$="h":gh=gh+1:goto2150
2210 ifal<2thenifc(1)>2andp(11)<>0thenfw$="a":tw$="l":al=al+1:goto2150
2220 ifab<2thenifc(1)>2andp(2)<>0thenfw$="a":tw$="b":ab=ab+1:goto2150
2230 ifba<2thenifc(2)>2andp(1)<>0thenfw$="b":tw$="a":ba=ba+1:goto2150
2240 ifbc<2thenifc(2)>2andp(3)<>0thenfw$="b":tw$="c":bc=bc+1:goto2150
2250 ifcd<2thenifc(3)>2andp(4)<>0thenfw$="c":tw$="d":cd=cd+1:goto2150
2260 ifdc<2thenifc(4)>2andp(3)<>0thenfw$="d":tw$="c":dc=dc+1:goto2150
2270 ifde<2thenifc(4)>2andp(5)<>0thenfw$="d":tw$="e":de=de+1:goto2150
2280 ifla<2thenifc(11)>2andp(1)<>0thenfw$="l":tw$="a":la=la+1:goto2150
2290 iflj<2thenifc(11)>2andp(9)<>0thenfw$="l":tw$="j":lj=lj+1:goto2150
2300 iflk<2thenifc(11)>2andp(10)<>0thenfw$="l":tw$="k":lk=lk+1:goto2150
2310 ifed<2thenifc(5)>2andp(4)<>0thenfw$="e":tw$="d":ed=ed+1:goto2150
2320 ifjl<2thenifc(9)>2andp(11)<>0thenfw$="j":tw$="l":jl=jl+1:goto2150
2330 ifjk<2thenifc(9)>2andp(10)<>0thenfw$="j":tw$="k":jk=jk+1:goto2150
2340 ifjf<2thenifc(9)>2andp(6)<>0thenfw$="j":tw$="f":jf=jf+1:goto2150
2350 ifkl<2thenifc(10)>2andp(11)<>0thenfw$="k":tw$="l":kl=kl+1:goto2150
2360 ifkj<2thenifc(10)>2andp(9)<>0thenfw$="k":tw$="j":kj=kj+1:goto2150
2370 iffe<2thenifc(6)>2andp(5)<>0thenfw$="f":tw$="e":fe=fe+1:goto2150
2380 iffj<2thenifc(6)>2andp(9)<>0thenfw$="f":tw$="j":fj=fj+1:goto2150
2390 ifef<2thenifc(5)>2andp(6)<>0thenfw$="e":tw$="f":ef=ef+1:goto2150
2400 ifge<2thenifc(7)>2andp(5)<>0thenfw$="g":tw$="e":ge=ge+1:goto2150
2410 ifgf<2thenifc(7)>2andp(6)<>0thenfw$="g":tw$="f":gf=gf+1:goto2150
2420 ifgj<2thenifc(7)>2andp(9)<>0thenfw$="g":tw$="j":gj=gj+1:goto2150
2430 ifgk<2thenifc(7)>2andp(10)<>0thenfw$="g":tw$="k":gk=gk+1:goto2150
2440 ifjg<2thenifc(9)>2andp(7)<>0thenfw$="j":tw$="g":jg=jg+1:goto2150
2450 iffg<2thenifc(6)>2andp(7)<>0thenfw$="f":tw$="g":fg=fg+1:goto2150
2460 ifeg<2thenifc(5)>2andp(7)<>0thenfw$="e":tw$="g":eg=eg+1:goto2150
2470 ifkg<2thenifc(10)>2andp(7)<>0thenfw$="k":tw$="g":kg=kg+1:goto2150
2480 goto620
2490 gosub3190:printe$eq$:printhe$"ich greife an von "rn$fw$rf$" nach "rn$tw$
2500 gosub3190:gosub2600:fora=1to2000:next:gosub2720:gosub3250
2510 ifp(n2)<1then2530
2520 goto2170
2530 v=rnd(rnd(0)):v=int((9*v)+1)
2540 ifc(n1)-v<2then2530
2550 c(n1)=c(n1)-v:c(n2)=c(n2)+v
2560 n=n1:gosub1570:printhe$nd$nr$c(n)
2570 n=n2:gosub1570:printhe$nd$nr$rn$c(n):gosub3190
2580 n=n2:gosub1570:printhe$nd$nr$c(n)
2590 gosub1570:printhe$hd$hr$"#":gosub3250:return
2600 v=rnd(rnd(0)):v=int((6*v)+1)
2610 iffl=1thenp=v:goto2630
2620 c=v
2630 v=rnd(rnd(0)):v=int((6*v)+1)
2640 iffl=1thenc=v:gosub2700:goto2680
2650 p=v:gosub2700
2660 ifp=>cthenprinte$eq$:printhe$"du hast meinen angriff abgewehrt!":return
2670 printe$eq$:printhe$"mein angriff war erfolgreich!":return
2680 ifc=>pthenprinte$eq$:printhe$"ich habe deinen angriff abgewehrt!":return
2690 printe$eq$:printhe$"dein angriff war erfolgreich!":return
2700 printe$eq$:printhe$"dein wurf ";:gosub3410:printp;:gosub3190
2710 printb3$"mein wurf ";:gosub3410:printc:gosub3190:return
2720 fora=1to12:ifmid$(n$,a,1)=fw$thenn1=a
2730 ifmid$(n$,a,1)=tw$thenn2=a
2740 next
2750 iffl=1andp>cthenc(n2)=c(n2)-1
2760 iffl=1andc=>pthenp(n1)=p(n1)-1
2770 iffl=2andp=>cthenc(n1)=c(n1)-1
2780 iffl=2andc>pthenp(n2)=p(n2)-1
2790 iffl=1thenn=n1:goto2810
2800 n=n2
2810 gosub1570:printhe$nd$nr$b3$:printhe$nd$nr$p(n)
2820 iffl=1thenn=n2:goto2840
2830 n=n1
2840 gosub1570:printhe$nd$nr$b3$:printhe$nd$nr$c(n):iffl=1then2860
2850 return
2860 ifc(n)>=1thenreturn
2870 printe$eq$:printhe$"anzahl der besetzenden armeen (1-9)?":gosub3210
2880 v=val(a$):e=0:ford=1to9:ifv=dthene=e+1
2890 next:ife=0then2860
2900 ifp(n1)-v<1then2860
2910 p(n1)=p(n1)-v:p(n2)=p(n2)+v
2920 n=n1:gosub1570:printhe$nd$nr$p(n)c1$" "
2930 n=n2:gosub1570:printhe$nd$nr$p(n)
2940 gosub1570:printhe$hd$hr$" ":return
2950 poke806,57:poke807,1
2960 print"[202]d[194]bbb[203]eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
2970 print"[194]c[195]aaaaaaaaaaaaaaaaaaa[202]c[195]aaa[205]o[195]aaaa[205]o[195]a[197]e[195]aa[203]f[195]aaaaa[203]h"
2980 print"[194]c[195]aaaaaaaaaaaaaaaaaa[202]c[203]j[195]aaa[203]f[197]d[203]h[194]c[195]aa[202]c[203]f[195]aaa[205]o[195]aaaaaa[203]h"
2990 print"[194]c[195]aaaaaaaaaaa[203]m[204]j[195]kkkkk[202]c[203]f[195]aa[203]ef[195]aa[206]p[194]c[195]a[206]p[202]c[203]ee[205]o[195]aaaaaaa[203]h"
3000 print"[194]c[195]a[197]b[198]e[197]mbo[198]e[197]jl[195]a[203]m[202]c[195]a[204]m[194]c[204]l[195]aaaa[202]c[203]f[197]c[194]c[203]j[206]p[202]c[195]aaa";
3010 print"[194]c[203]j[195]aaa[202]c[203]j[195]aaaaa[197]f[195]aa[203]h"
3020 print"[194]c[195]aaaaaaaa[203]eem[202]c[195]a[194]c[204]o[195]aaaaa[203]dd[195]a[203]h[202]c[195]aa[203]h[194]c[195]aaa[203]e[202]c[203]f[195]aaaaaaaa[203]h"
3030 print"[194]c[195]aaaaaa[203]h[202]c[203]d[195]a[203]h[194]c[204]g[202]c[195]a[204]g[194]c[195]a[197]op[198]c[197]e[195]naa[203]h[202]c[195]aa[194]c[203]j[195]aa[202]c[203]j[195]aaaaaaaaaa[203]h"
3040 print"[194]c[195]aaaaaa[202]c[195]aa[204]k[194]c[203]m[204]j[202]c[197]b[203]h[194]c[195]a[198]d[197]ff[195]a[203]h[202]c[203]d[206]p[194]c[195]a[206]p[203]j[195]aaa[206]p[202]c[195]aaaaaaaaaa[203]h"
3050 print"[194]c[195]aaaaaa[204]i[203]d[195]a[204]j[202]c[195]aaa[204]g[194]c[195]aa[203]ee[202]c[203]j[195]aa[203]d[206]p[194]c[203]e[202]c[203]jddd[205]n[203]ee[195]aaaaaaa[203]h"
3060 print"[194]c[195]aaaaaaaa[203]m[202]c[204]o[195]aaa[194]c[204]l[203]e[202]c[203]j[195]aaaaaa[203]h[195]aaaaaaaa[203]f[195]aaaaaa[203]h"
3070 print"[194]c[195]aaaaaaaaaaaka[202]c[203]j[205]n[195]aaa[197]k[195]aaa[205]o[195]aaa[197]g[195]aaaa[203]f[195]aaaaaa[203]h"
3080 print"[194]c[195]aaaaaaaa[206]p[202]c[203]dddd[195]aa[205]n[195]aaaaa[205]o[195]aaaaaaaa[205]o[195]aaaaaaa[203]h"
3090 print"[194]c[195]aaaaaaaaa[206]p[202]c[195]aa[197]m[195]aa[203]h[195]aaaaa[205]n[203]eee[195]aaaa[203]heee[195]aaaaa[203]h"
3100 print"[194]c[195]aaaaaaaaa[203]h[202]c[195]aaaaa[205]o[203]eeeee[205]o[195]aaa[205]n[203]eee[205]o[195]aa[203]h[195]aaaaa[203]h"
3110 print"[194]c[195]aa[203]h[202]c[203]ddd[206]p[194]c[203]ee[202]c[203]j[195]aaaaa[203]d[205]o[195]aaaa[203]f[195]aaaaaaaaaaa[205]n[194]c[203]jdddd"
3120 print"[194]c[195]aa[202]c[203]j[195]a[197]n[195]aaaa[205]n[195]aaaaaa[205]n[195]aaa[206]p[194]c[203]d[206]p[202]c[195]aaaaa[197]h[195]aaaaa[194]c[198]d[197]di[198]h[195]o"
3130 print"[194]c[195]a[202]c[203]j[195]aaaaaaaa[203]d[205]n[194]c[203]f[195]aaaaa[206]p[202]c[195]aa[206]p[194]c[195]a[206]p[202]c[195]aaaaaaaaaa[194]c[197]nff[198]c[195]a"
3140 print"[194]c[195]a[202]c[195]aaaaaaaaa[194]c[203]j[195]aaaaaaaa[206]p[202]c[195]a[197]l[206]p[194]c[195]aa[206]p[202]c[195]aaaaaaaa[206]p[194]c[195]aa[202]c[203]jh"
3150 print"[194]c[195]a[202]c[195]aaaaaaa[194]c[203]j[195]aaa[197]nj[198]ee[197]fm[195]aaa[206]p[202]c[195]aa[206]p[194]c[195]aa[202]c[195]aaaaaa[205]o[203]d[195]aa[197]i[203]h"
3160 print"[194]c[195]aa[206]p[202]c[195]aaaa[194]c[203]j[195]aaaaa[197]nff[198]c[195]aaaaaa[206]p[195]a[204]o[195]a[206]p[202]c[195]a[206]p[194]c[195]aaa[206]p[202]c[195]aaaa[203]h"
3170 print"[194]c[195]aaaaaaaaaaaaaaaaaaaaaaa[204]m[195]aaaa[206]p[202]c[195]a[206]p[194]c[195]aaa[206]p[202]c[203]eee[204]k"
3180 poke806,121:poke807,239
3181 ifltthenpoke806,202:poke807,241
3182 return
3190 ifltthenpoke198,0:wait198,1:return
3200 poke208,0:wait208,1:return
3210 geta$:ifa$=""then3210
3220 return
3230 data11,10,9,11,5,19,6,19,7,22,8,23,5,28,4,30,9,32,10,32,14,24,15,27,20,27
3240 data18,26,22,36,22,34,14,17,13,16,18,17,17,18,17,11,15,14,20,3,18,6
3250 s=0:t=0:fora=1to12:ifc(a)<>0thens=s+1
3260 ifp(a)<>0thent=t+1
3270 next:ifs=12then3300
3280 ift=12then3340
3290 return
3300 printcl$c4$c4$"aha! ich habe gewonnen--":gosub3410
3310 printc4$c4$"meine invasions-strategie war brilliant":printc4$"wie immer!!"
3320 gosub3410:printc4$c4$rn$"niemand"rf$" kann mich stoppen!":gosub3410
3330 printc4$rn$"heute europa----morgen die ganze welt!!!":gosub3410:goto3380
3340 printcl$c4$c4$"bah!-du hast gewonnen":gosub3410
3350 printc4$"das auch nur durch einen fehler"
3360 printc4$"in meiner konzentration!":gosub3410
3370 printc4$c4$"es passiert bestimmt nicht wieder!":gosub3410
3380 printc4$c4$"willst du noch einmal spielen (j/n)?"
3390 gosub3210:ifa$="n"thenend
3391 if a$<>"j"then3390
3400 run
3410 fortq=1to3000:next
3420 return
3430 fori=1to48:reada:next
3435 fori=313to341
3440 reada:pokei,a:next:restore
3441 ifltthenpoke340,202:poke341,241
3442 return
3450 data 201,013,240,022,201,193
3460 data 048,012,056,233,193,010
3470 data 010,010,010,141,056,001
3480 data 024,096,056,233,065,013
3490 data 056,001,076,121,239
3500 rem nachspann ===============
3510 rem * farbcodes/steuercodes *
3520 wh$=chr$(005):c4$=chr$(017)
3530 rn$=chr$(018):he$=chr$(019)
3540 c3$=chr$(029):rf$=chr$(146)
3550 cl$=chr$(147):lg$=chr$(153)
3560 c1$=chr$(157):lt=(peek(772)=124)
3561 xx=2816:ifltthenxx=832
3570 rem ********* zeichenfolgen *
3580 for q=1 to 40
3590 qd$=qd$+c4$:qr$=qr$+c3$
3600 nextq:b$=chr$(32)
3610 b3$=b$+b$+b$:return
3620 rem =programmende============